home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1990 May
/
64er_Magazin_90-05_1990_Markt__Technik_de_Side_A.d64
/
micro-lock v1.2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
893b
|
21 lines
10 poke808,225:poke53280,0:poke53281,0
20 print"[158][147][205][201][195][210][207]-[204][207][195][203] [214]1.2 by [193]. [196]enzl 1988"
30 print"[194]itte [195]ode eingeben (5 [212]asten) : ";
40 poke204,0:for p=1to5
50 get code$:if code$="" then 50
60 poke956+p,asc(code$):print"*";:nextp
70 poke204,1:print" ":gosub 1000
80 print:print"[205]icro-[204]ock installiert ..."
90 print"[193]ktivieren: <[195][194][205]> + <[210][197][211][212][207][210][197]>"
100 poke808,237:new
1000 poke53280,2:restore:for i=828 to 956:read x:poke i,x:next i
1010 poke792,60:poke793,3:poke178,0:poke 179,4:poke53280,0:return
10000 data 72,138,72,152,72,32,94,3,169,127,141,13,221,32,188,246,32
10002 data 225,255,32,21,253,32,163,253,32,24,229,32,178,3,108,2,160
10004 data 173,141,2,201,2,240,1,96,206,32,208,169,0,141,14,220,133
10006 data 198,169,127,141,138,2,169,177,141,24,3,169,3,141,25,3,162
10008 data 0,134,2,32,159,255,32,228,255,240,248,166,2,221,189,3,208
10010 data 237,230,2,165,2,201,5,208,233,169,1,141,14,220,169,0,141
10012 data 138,2,32,178,3,238,32,208,104,104,104,168,104,170,104,64,169
10014 data 60,141,24,3,169,3,141,25,3,96